home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dba1286.arc / LISTING1.PRG < prev    next >
Encoding:
Text File  |  1986-11-04  |  1.1 KB  |  38 lines
  1. **Filename:  UHELP.PRG
  2. **Program:  Universal Help program
  3. **Author:   J. Ari Kornfeld 
  4. **Date  :   1-26-86
  5. **Notes :   Uses two files:  HELP.DBF & HELP.NTX
  6. **          Global Variable: selected--the current alias
  7. PROCEDURE Help     && The procedure name must be HELP for F1 to work
  8. PARAMETERS MProgName, LineNo, MVarName
  9. PRIVATE key, right, row, col, frame, selected
  10. frame = "╔═╗║╝═╚║ "                &&(Used by @..BOX)
  11. SAVE SCREEN
  12. selected = STR(SELECT())
  13. SELECT 10
  14. USE help INDEX help
  15. key = MprogName+SPACE(8-LEN(MprogName))+;
  16.       MvarName+SPACE(10-LEN(MvarName))
  17. SEEK key
  18. IF EOF()
  19.   @4,10, 7,40 BOX frame
  20.    @5,12 SAY 'Sorry, no help is available'
  21.    @6,12 SAY ' Press any key to continue.'
  22. ELSE
  23.    @Top,Left, Bottom,Right BOX frame
  24.    col = left + 1                   && move inside the box
  25.    row = top + 1
  26.    DO WHILE key = ProgName+VarName
  27.       @row,col SAY TRIM(HelpMssg)
  28.       row  = row + 1
  29.       SKIP
  30.    ENDDO
  31. ENDIF
  32. DO WHILE INKEY() = 0
  33. ENDDO 
  34. RESTORE SCREEN
  35. USE
  36. SELECT &selected && return to the active select area
  37. RETURN
  38.